home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 October / Pcwk1097.iso / REKLAMY / ATA-INT / 3220 / 3220.EXE / 3220.DXR / 00003_DEVELOPMENT HANDLERS.ls < prev    next >
Encoding:
Text File  |  1997-02-13  |  2.0 KB  |  110 lines
  1. global gW
  2.  
  3. on regjobMark
  4.   repeat with i = 1030 to 1037
  5.     set the regPoint of cast i to point(320, 240)
  6.   end repeat
  7. end
  8.  
  9. on settextscripts
  10.   repeat with i = 1202 to 1306
  11.     set the scriptText of cast i to the scriptText of cast 1201
  12.   end repeat
  13. end
  14.  
  15. on regjob a, b, c, d
  16.   if the paramCount < 4 then
  17.     set p to point(320, 240)
  18.   else
  19.     set p to point(c, d)
  20.   end if
  21.   repeat with i = a to b
  22.     set the regPoint of cast i to p
  23.   end repeat
  24. end
  25.  
  26. on setscripts a, b, c
  27.   set a to the scriptText of cast a
  28.   repeat with i = b to c
  29.     set the scriptText of cast i to a
  30.   end repeat
  31. end
  32.  
  33. on clrText a, b
  34.   set p to the paramCount
  35.   if not p then
  36.     set a to 708
  37.     set b to 791
  38.   else
  39.     if p = 1 then
  40.       set b to a
  41.     else
  42.       if p > 2 then
  43.         put "- use 2 arguments only"
  44.         exit
  45.       end if
  46.     end if
  47.   end if
  48.   repeat with i = a to b
  49.     set the text of cast i to " "
  50.     set the textFont of cast i to "helvetica"
  51.   end repeat
  52. end
  53.  
  54. on listDuds a, b
  55.   repeat with i = a to b
  56.     go(i)
  57.     repeat with j = 1 to 48
  58.       set n to the castNum of sprite j
  59.       if not n then
  60.         next repeat
  61.         next repeat
  62.       end if
  63.       if the castType of cast n = #empty then
  64.         put i && j
  65.       end if
  66.     end repeat
  67.   end repeat
  68. end
  69.  
  70. on findSpr a, b, c
  71.   repeat with i = a to b
  72.     go(i)
  73.     repeat with j = 1 to 48
  74.       set n to the castNum of sprite j
  75.       if not n then
  76.         next repeat
  77.         next repeat
  78.       end if
  79.       if n = c then
  80.         put i && j
  81.       end if
  82.     end repeat
  83.   end repeat
  84. end
  85.  
  86. on clrNames a, b, c
  87.   if not c then
  88.     set c to EMPTY
  89.   end if
  90.   repeat with i = a to b
  91.     set the name of cast i to c
  92.   end repeat
  93. end
  94.  
  95. on manualExport a, b
  96.   if objectp(gW) then
  97.     gW(mdispose)
  98.   end if
  99.   set gW to FileIO(mnew, "write", the pathName & "LANG.txt")
  100.   set data to EMPTY
  101.   repeat with i = a to b
  102.     put "#" & the name of cast i & RETURN & the text of cast i after data
  103.     if not (i = b) then
  104.       put RETURN & "**" & RETURN after data
  105.     end if
  106.   end repeat
  107.   gW(mWriteString, data)
  108.   gW(mdispose)
  109. end
  110.